Best Tools for JAVA

home *** CD-ROM | disk | FTP | other *** search

/ Best Tools for JAVA / Best Tools for JAVA.iso / GRAPHICS / BMPWIZ / BMPWIZ.ZIP / CLPBRD.BAS < prev next >

Unknown | 1994-01-30 | 937 b

open in:

MacOS 8.1 |

Win98 |

DOS

view JSON data |

view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Memotech MTX BASIC source `(document/memotechMTXBASICSource)`	ext	Unsupported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	data	default

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| a5 03 00 00 0d 0a 27 20 | 43 6c 69 70 62 6f 61 72 |......' |Clipboar|
|00000010| 64 20 74 6f 20 67 72 61 | 79 73 0d 0a 27 20 44 65 |d to gra|ys..' De|
|00000020| 6d 6f 73 74 72 61 74 65 | 20 68 6f 77 20 74 6f 20 |mostrate| how to |
|00000030| 75 73 65 20 43 6c 69 70 | 62 6f 61 72 64 20 74 6f |use Clip|board to|
|00000040| 20 66 69 6c 74 65 72 20 | 69 6d 61 67 65 73 20 69 | filter |images i|
|00000050| 6e 73 69 64 65 20 6f 74 | 68 65 72 20 70 72 6f 67 |nside ot|her prog|
|00000060| 72 61 6d 73 2e 0d 0a 27 | 20 57 61 69 74 20 66 6f |rams...'| Wait fo|
|00000070| 72 20 61 6e 20 42 4d 50 | 20 6f 72 20 44 49 42 20 |r an BMP| or DIB |
|00000080| 69 6d 61 67 65 2c 20 67 | 65 74 20 74 68 65 20 69 |image, g|et the i|
|00000090| 6d 61 67 65 2c 20 6d 6f | 64 69 66 79 20 61 6e 64 |mage, mo|dify and|
|000000a0| 20 70 75 74 20 62 61 63 | 6b 2e 0d 0a 27 20 54 68 | put bac|k...' Th|
|000000b0| 65 20 66 69 6c 74 65 72 | 20 74 72 61 6e 73 66 6f |e filter| transfo|
|000000c0| 72 6d 20 74 68 65 20 69 | 6e 70 75 74 20 69 6d 61 |rm the i|nput ima|
|000000d0| 67 65 20 69 6e 20 61 20 | 67 72 61 79 20 73 63 61 |ge in a |gray sca|
|000000e0| 6c 65 20 69 6d 61 67 65 | 2e 0d 0a 0d 0a 27 20 49 |le image|.....' I|
|000000f0| 6e 70 75 74 3a 09 31 2d | 34 2d 38 2d 32 34 20 62 |nput:.1-|4-8-24 b|
|00000100| 69 74 0d 0a 27 20 4f 75 | 74 70 75 74 3a 09 31 2d |it..' Ou|tput:.1-|
|00000110| 34 2d 38 2d 32 34 20 62 | 69 74 0d 0a 0d 0a 27 20 |4-8-24 b|it....' |
|00000120| 41 75 74 68 6f 72 3a 09 | 41 6e 64 72 65 61 20 42 |Author:.|Andrea B|
|00000130| 65 6e 6f 6e 69 2f 47 69 | 6f 76 61 6e 6e 69 20 5a |enoni/Gi|ovanni Z|
|00000140| 61 6e 65 74 74 69 09 20 | 72 65 76 3a 09 31 2e 32 |anetti. |rev:.1.2|
|00000150| 0d 0a 0d 0a 0d 0a 73 74 | 72 69 6e 67 09 46 69 6c |......st|ring.Fil|
|00000160| 65 0d 0a 44 65 76 43 6f | 6e 09 49 62 6d 70 0d 0a |e..DevCo|n.Ibmp..|
|00000170| 52 47 42 09 70 69 78 0d | 0a 66 6c 6f 61 74 20 20 |RGB.pix.|.float  |
|00000180| 09 78 2c 79 2c 61 0d 0a | 0d 0a 46 69 6c 65 3d 22 |.x,y,a..|..File="|
|00000190| 43 4c 49 50 42 4f 41 52 | 44 22 09 09 09 27 20 75 |CLIPBOAR|D"...' u|
|000001a0| 73 65 20 43 6c 69 70 62 | 6f 61 72 64 20 66 6f 72 |se Clipb|oard for|
|000001b0| 20 49 2f 4f 0d 0a 0d 0a | 46 6f 72 20 61 3d 30 20 | I/O....|For a=0 |
|000001c0| 74 6f 20 31 30 30 09 09 | 09 27 20 64 75 6d 6d 79 |to 100..|.' dummy|
|000001d0| 20 66 6f 72 0d 0a 20 20 | 49 62 6d 70 3d 4c 6f 61 | for..  |Ibmp=Loa|
|000001e0| 64 49 6d 61 67 65 28 46 | 69 6c 65 29 0d 0a 0d 0a |dImage(F|ile)....|
|000001f0| 20 20 46 6f 72 20 79 3d | 30 20 74 6f 20 49 62 6d |  For y=|0 to Ibm|
|00000200| 70 2e 48 65 69 67 68 74 | 2d 31 09 09 27 20 66 6f |p.Height|-1..' fo|
|00000210| 72 20 65 76 65 72 79 20 | 72 6f 77 0d 0a 20 20 20 |r every |row..   |
|00000220| 20 20 46 6f 72 20 78 3d | 30 20 74 6f 20 49 62 6d |  For x=|0 to Ibm|
|00000230| 70 2e 57 69 64 74 68 2d | 31 09 09 27 20 66 6f 72 |p.Width-|1..' for|
|00000240| 20 65 76 65 72 79 20 63 | 6f 6c 75 6d 6e 0d 0a 20 | every c|olumn.. |
|00000250| 20 20 20 20 20 20 20 70 | 69 78 3d 47 65 74 50 69 |       p|ix=GetPi|
|00000260| 78 65 6c 28 49 62 6d 70 | 2c 78 2c 79 29 09 09 27 |xel(Ibmp|,x,y)..'|
|00000270| 20 67 65 74 20 49 6e 20 | 70 69 78 65 6c 0d 0a 20 | get In |pixel.. |
|00000280| 20 20 20 20 20 20 20 70 | 69 78 2e 4c 75 6d 3d 70 |       p|ix.Lum=p|
|00000290| 69 78 2e 4c 75 6d 09 09 | 27 20 75 73 65 20 6f 6e |ix.Lum..|' use on|
|000002a0| 6c 79 20 6c 75 6d 20 64 | 61 74 61 0d 0a 20 20 20 |ly lum d|ata..   |
|000002b0| 20 20 20 20 20 53 65 74 | 50 69 78 65 6c 28 49 62 |     Set|Pixel(Ib|
|000002c0| 6d 70 2c 78 2c 79 2c 70 | 69 78 29 09 09 27 20 70 |mp,x,y,p|ix)..' p|
|000002d0| 75 74 20 4f 75 74 20 70 | 69 78 65 6c 0d 0a 20 20 |ut Out p|ixel..  |
|000002e0| 20 20 20 4e 65 78 74 20 | 78 0d 0a 20 20 20 20 20 |   Next |x..     |
|000002f0| 69 66 28 79 25 31 30 3d | 30 29 0d 0a 20 20 20 20 |if(y%10=|0)..    |
|00000300| 20 20 20 20 44 73 70 57 | 68 69 6c 65 28 22 54 6f |    DspW|hile("To|
|00000310| 20 67 72 61 79 73 22 2c | 31 30 30 2f 49 62 6d 70 | grays",|100/Ibmp|
|00000320| 2e 48 65 69 67 68 74 2a | 79 29 0d 0a 20 20 20 20 |.Height*|y)..    |
|00000330| 20 65 6e 64 69 66 0d 0a | 20 20 4e 65 78 74 20 79 | endif..|  Next y|
|00000340| 0d 0a 0d 0a 20 20 61 3d | 30 0d 0a 20 20 44 73 70 |....  a=|0..  Dsp|
|00000350| 57 68 69 6c 65 28 22 22 | 2c 30 29 0d 0a 20 20 53 |While(""|,0)..  S|
|00000360| 61 76 65 49 6d 61 67 65 | 28 49 62 6d 70 2c 46 69 |aveImage|(Ibmp,Fi|
|00000370| 6c 65 29 0d 0a 20 20 27 | 50 72 65 76 69 65 77 28 |le)..  '|Preview(|
|00000380| 49 62 6d 70 2c 22 4f 75 | 74 20 69 6d 61 67 65 22 |Ibmp,"Ou|t image"|
|00000390| 2c 31 30 2c 31 30 2c 32 | 30 30 2c 32 30 30 29 0d |,10,10,2|00,200).|
|000003a0| 0a 4e 65 78 74 20 61 0d | 0a                      |.Next a.|.       |
+--------+-------------------------+-------------------------+--------+--------+